home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / BufferedValueHolder.p < prev    next >
Text File  |  2004-01-31  |  5KB  |  133 lines
  1. pTempVar <- <primitive 110 6 >
  2. <primitive 112 pTempVar 1  " notYetAssigned: " \
  3.   #( #[ 16r21 16r60 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " notYetAssigned " \
  7.   #( #[ 16r10 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " privateSetup " \
  11.   #( #[ 16r10 16rA1 16rF7 16r05 16r20 16r80 16r00 16rF1 16r60 16rF2 16r20 \
  12.         16rF3 16rF5] \
  13.     #( #privateNew  )) >
  14.  
  15. <primitive 112 pTempVar 4  " new " \
  16.   #( #[ 16r20 16r80 16r00 16rF3 16rF5] \
  17.     #( #privateSetup  )) >
  18.  
  19. <primitive 112 pTempVar 5  " privateNew " \
  20.   #( #[ 16r20 16r90 16r00 16rF3 16rF5] \
  21.     #( #new  )) >
  22.  
  23. <primitive 112 pTempVar 6  " isSingleton " \
  24.   #( #[ 16r5B 16rF3 16rF5] \
  25.     #(  )) >
  26.  
  27. <primitive 98 #BVHGlobalVar \
  28.   <primitive 97 #BVHGlobalVar #Object #AmigaTalk:General/BufferedValueHolder.st \
  29.    #(  #uniqueInstance ) \
  30.    #( #notYetAssigned: #notYetAssigned #privateSetup #new #privateNew  \
  31.        #isSingleton  ) \
  32.   pTempVar 2 5 > #isSingleton >
  33.  
  34. pTempVar <- <primitive 110 17 >
  35. <primitive 112 pTempVar 1  " isBuffering " \
  36.   #( #[ 16r10 16r13 16r80 16r00 16rB7 16rF3 16rF5] \
  37.     #( #notYetAssigned  )) >
  38.  
  39. <primitive 112 pTempVar 2  " update:with:from: " \
  40.   #( #[ 16r23 16r12 16rB6 16rF7 16r05 16r20 16r80 16r00 16rF8 16r1E 16rF2 \
  41.         16r23 16r11 16rB6 16rF7 16r11 16r10 16r13 16r80 16r01 16rB6 \
  42.         16rF7 16r08 16r20 16r90 16r02 16r21 16r22 16r20 16r83 16r03 \
  43.         16rF8 16r07 16rF2 16r20 16r21 16r22 16r23 16r93 16r03 16rF2 \
  44.         16rF5] \
  45.     #( #changedTrigger #notYetAssigned #dependents #update:with:from:  )) >
  46.  
  47. <primitive 112 pTempVar 3  " unhookFromSubject " \
  48.   #( #[ 16r11 16r20 16r81 16r00 16rF2 16rF5] \
  49.     #( #removeDependent:  )) >
  50.  
  51. <primitive 112 pTempVar 4  " renderingValueUsingSubject: " \
  52.   #( #[ 16r11 16r21 16r81 16r00 16rF3 16rF5] \
  53.     #( #renderingValueUsingSubject:  )) >
  54.  
  55. <primitive 112 pTempVar 5  " hookupToSubject " \
  56.   #( #[ 16r11 16r20 16r81 16r00 16rF2 16rF5] \
  57.     #( #addDependent:  )) >
  58.  
  59. <primitive 112 pTempVar 6  " changedTrigger " \
  60.   #( #[ 16r20 16r80 16r00 16rA5 16rF7 16r1D 16r10 16r13 16r80 16r01 16rB6 \
  61.         16rF7 16r02 16r20 16rF3 16rF2 16r20 16r80 16r02 16rF2 16r20 \
  62.         16r80 16r03 16r10 16rB5 16rF2 16r13 16r80 16r01 16r60 16r20 \
  63.         16r80 16r04 16rF8 16r0D 16rF2 16r13 16r80 16r01 16r60 16r20 \
  64.         16r90 16r05 16r36 16r37 16r20 16r83 16r08 16rF2 16rF5] \
  65.     #( #triggerChannel #notYetAssigned #unhookFromSubject #subject \
  66.         #hookupToSubject #dependents #value #reset #update:with:from:  )) >
  67.  
  68. <primitive 112 pTempVar 7  " removeDependent: " \
  69.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r20 16r90 16r01 16r5D 16rB6 16rF7 \
  70.         16r03 16r20 16r80 16r02 16rF2 16r21 16rF3 16rF5] \
  71.     #( #removeDependent: #dependents #unhookFromSubject  )) >
  72.  
  73. <primitive 112 pTempVar 8  " addDependent: " \
  74.   #( #[ 16r20 16r90 16r00 16r5D 16rB6 16rF7 16r03 16r20 16r80 16r01 16rF2 \
  75.         16r20 16r21 16r91 16r02 16rF3 16rF5] \
  76.     #( #dependents #hookupToSubject #addDependent:  )) >
  77.  
  78. <primitive 112 pTempVar 9  " valueUsingSubject: " \
  79.   #( #[ 16r11 16r21 16r81 16r00 16rF3 16rF5] \
  80.     #( #valueUsingSubject:  )) >
  81.  
  82. <primitive 112 pTempVar 10  " value " \
  83.   #( #[ 16r10 16r13 16r80 16r00 16rB6 16rF7 16r05 16r11 16rA5 16rF3 16rF8 \
  84.         16r03 16rF2 16r10 16rF3 16rF2 16rF5] \
  85.     #( #notYetAssigned  )) >
  86.  
  87. <primitive 112 pTempVar 11  " triggerChannel: " \
  88.   #( #[ 16r12 16rA2 16rF7 16r04 16r12 16r20 16r81 16r00 16rF2 16r21 16r62 \
  89.         16r12 16rA2 16rF7 16r04 16r12 16r20 16r81 16r01 16rF2 16rF5 \
  90.        ] \
  91.     #( #removeDependent: #addDependent:  )) >
  92.  
  93. <primitive 112 pTempVar 12  " triggerChannel " \
  94.   #( #[ 16r12 16rF3 16rF5] \
  95.     #(  )) >
  96.  
  97. <primitive 112 pTempVar 13  " subject: " \
  98.   #( #[ 16r11 16rA2 16rFC 16r04 16r20 16r90 16r00 16rA2 16rF7 16r03 16r20 \
  99.         16r80 16r01 16rF2 16r21 16r61 16r20 16r13 16r80 16r02 16rB5 \
  100.         16rF2 16r11 16rA2 16rFC 16r04 16r20 16r90 16r00 16rA2 16rF7 \
  101.         16r03 16r20 16r80 16r03 16rF2 16rF5] \
  102.     #( #dependents #unhookFromSubject #notYetAssigned #hookupToSubject  )) >
  103.  
  104. <primitive 112 pTempVar 14  " subject " \
  105.   #( #[ 16r11 16rF3 16rF5] \
  106.     #(  )) >
  107.  
  108. <primitive 112 pTempVar 15  " releaseParts " \
  109.   #( #[ 16r12 16rA2 16rF7 16r04 16r12 16r20 16r81 16r00 16rF2 16r20 16r90 \
  110.         16r01 16rA2 16rF7 16r03 16r20 16r80 16r02 16rF2 16r20 16r90 \
  111.         16r03 16rF2 16rF5] \
  112.     #( #removeDependent: #dependents #unhookFromSubject #releaseParts  )) >
  113.  
  114. <primitive 112 pTempVar 16  " initialize " \
  115.   #( #[ 16r40 16rA0 16r63 16r20 16r90 16r01 16rF2 16r13 16r80 16r02 16r60 \
  116.         16rF5] \
  117.     #( #BVHGlobalVar #initialize #notYetAssigned  )) >
  118.  
  119. <primitive 112 pTempVar 17  " subject:triggerChannel: " \
  120.   #( #[ 16r20 16rA0 16r21 16r81 16r00 16rF1 16r22 16r81 16r01 16rF2 16rF3 \
  121.         16rF5] \
  122.     #( #subject: #triggerChannel:  )) >
  123.  
  124. <primitive 98 #BufferedValueHolder \
  125.   <primitive 97 #BufferedValueHolder #ValueHolder #AmigaTalk:General/BufferedValueHolder.st \
  126.    #(  #value #subject #triggerChannel #na ) \
  127.    #( #isBuffering #update:with:from: #unhookFromSubject  \
  128.        #renderingValueUsingSubject: #hookupToSubject #changedTrigger #removeDependent: #addDependent:  \
  129.        #valueUsingSubject: #value #triggerChannel: #triggerChannel #subject: #subject  \
  130.        #releaseParts #initialize #subject:triggerChannel:  ) \
  131.   pTempVar 4 13 > #ordinary >
  132.  
  133.